VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsContact"
Attribute VB_Creatable = False
Attribute VB_Exposed = True
Option Explicit


Private pChildren As clscContacts
Public Name As String
Public WorkPhone As String
Public LastMeetingDate As Date
Public Image As Variant 'required. Index or key of an icon in an imagelist
Public HasChildren As Boolean 'required. ThreadView needs this to know whether draw plus/minus
Public Parent As clscContacts
'Requred  function
Public Function Properties(value)

Select Case value
    Case "Name"
        Properties = Name
    Case "WorkPhone"
        Properties = WorkPhone
    Case "LastMeetingDate"
        Properties = IIf(LastMeetingDate = 0, "", Format(LastMeetingDate, "Medium Date"))
    Case "Parent"
        Set Properties = Parent
    Case Else
        'Trap your own typing mistakes
        Properties = "#Error#"
End Select

End Function

Private Sub Class_Initialize()
Image = "Doc"

End Sub

Public Property Get Children()

If pChildren Is Nothing Then
    Set pChildren = New clscContacts
    pChildren.Create Me
End If

Set Children = pChildren

End Property


